home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2gp.plp < prev    next >
Text File  |  1993-11-30  |  2KB  |  70 lines
  1. /**********   プロフィールのダウンロード処理をする  v1.04a用   **********/
  2. var flag[3];
  3. %DownOne{
  4.     var Handle[20];
  5.     var tarID[10];
  6.     var ProfDir[40];
  7.     %ProFILE    logd|{\MAIL\PROFILE.LOG};
  8.     %DownProf{
  9.         case(Where1<>{MAIL},{Yes},{GoMail});
  10.         tarID:=@getchar(IndexLine,14,8);
  11.         footnote({ ｢}|tarID|{｣のプロフィールを取得しています});
  12.         Handle:=@getchar(@head(@getchar(IndexLine,32,18),
  13.                 {\n})|{                  },1,18);
  14.         write(ProFILE,{--------------------------------------------}|
  15.                 {-----------------------------------\n});
  16.         write(ProFILE,Handle);
  17.         receive(ProFILE);
  18.         type({PROF }|tarID|{\n});
  19.         loop({    wait(120,{TimeOut},
  20.             {\nmore>},    {type({\n}); im({Yes})},
  21.             {E:終了)\n＞},    {type({\n}); im({Yes})},
  22.             {MAIL>},    {
  23.                 wait(1,{stoprec; im({No})},{\n},{im({Yes})})},
  24.             {FORUM>},    {
  25.                 wait(1,{stoprec; im({No})},{\n},{im({Yes})})},
  26.             {プロフィールはありません－\n},{stoprec; im({No})}
  27.             );
  28.         });
  29.         write(ProFILE,{\n});
  30.         IndexLine:={済}|@getchar(IndexLine,3,80);
  31.         write(SaveFName,IndexLine);
  32.         wait(1);
  33.     };
  34.     mkdir(logd,{MAIL});
  35.     ProfDir:=logd|{\PROF\};
  36.     delfile(SaveFName);
  37.     fopen(IndexFName);
  38.     loop({    IndexLine:=@fread;
  39.         case(@getchar(IndexLine,1,12),
  40.               {予     Prof },{DownProf; im({Yes});
  41.             },{}     ,{im({No});
  42.             },     ,{write(SaveFName,IndexLine); im({Yes});
  43.         });
  44.     });
  45.     fclose;
  46.     copyfile(SaveFName,IndexFName);
  47. };
  48.  
  49. next:={No};
  50. flag:={No};
  51. fopen(IndexFName);
  52. loop({    IndexLine:=@fread;
  53.     case(@getchar(IndexLine,1,12),
  54.           {予     Prof },{flag:={Yes};
  55.         },{予     LIB  },{next:={Yes};
  56.         },{説     LIB  },{next:={Yes};
  57.         },{覧     List },{next:={Yes};
  58.         },{予     NEW  },{next:={Yes};
  59.         },,{
  60.             case(@getchar(IndexLine,1,2)={予} && 
  61.                     @getchar(IndexLine,8,4)={Read},
  62.             {Yes},{    next:={Yes};
  63.             });
  64.     });
  65.     im(IndexLine<>{})
  66. });
  67. fclose;
  68. case(flag,{Yes},{DownOne});
  69. footnote({});
  70.